|
<%
urlname=trim(request.form("urlname"))
urlvalue=trim(request.form("urlvalue"))
urldate=date()
urlinfo=trim(request.form("urlinfo"))
kinds=trim(request("kinds"))
if request.form("cool")="" then
cool=0
else
cool=request.form("cool")
end if
if request.form("urlhide")="" then
urlhide=0
else
urlhide=request.form("urlhide")
end if
if kinds<>"" then
if Instr(kinds,"|")=0 then
kindid1=kinds
kindid2=0
else
kindid1=cint(left(kinds,Instr(kinds,"|")-1))
kindid2=cint(right(kinds,len(kinds)-Instr(kinds,"|")))
end if
end if
set rs=server.CreateObject("adodb.recordset")
if urlname<>"" and urlvalue<>"" and kindid1<>"" then
rs.open"select urlname,urlvalue from urls where urlname='"&urlname&"' or urlvalue='"&urlvalue&"' and urlkindid1="&kindid1&"",conn,1,1
if not rs.eof then
response.write errmsg(3)
response.end
end if
rs.close
rs.open "select * from urls",conn,3,3
'conn.execute ("insert into urls(urlid,urlkindid1,urlkindid2,urlname,urlvalue,cool,urlhide,urltype) values("&urlid&","&kinds1&","&kinds2&",'"&urlname&"','"&urlvalue&"',"&cool&",'"&urlhide&"',"&urltype&")")
rs.addnew
rs("urlid")=rs.recordcount+1
rs("urlkindid1")=kindid1
rs("urlkindid2")=kindid2
rs("urlname")=urlname
rs("urlvalue")=urlvalue
rs("urlinfo")=urlinfo
rs("urldate")=urldate
if session("adminname")<>"" and session("grade")<=2 then
rs("cool")=cool
rs("urlhide")=urlhide
rs("urltype")=1
else
rs("urltype")=2
end if
rs.update
rs.close
response.write " The site has been added. Thank you! It will be included after being reviewed.
<- Add more ->
Site Information:
Title:"&urlname&"
URL:"&urlvalue&"
Comment:"&urlinfo&"
"
response.write ref("url_add.asp?kinds="&kindid1&"|"&kindid2&"",2)
response.end
end if
%>
Notes:
1.Only sites about China in English can be submitted.
2.To be included, please link back to China Sites.
3.Sites with unlawful contents or with virus will not be included.
4.We reserve the right to decide if your site can be included or not.
|
Link back：China Sites
|
|
